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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, poderão 
ser comprados, a preços atualizados, da seguinte forma: 1. Pessoalmente — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo endereço po- 
derá ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
São Paulo os endereços são: Rua Brigadeiro Tobias, 773 (Centro); Av. Industrial, 
117 (Santo André); e, no Rio de Janeiro: Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderão ser solicitados exemplares atrasados também por carta, que deve 
ser enviada para DINAP — Distribuidor Nacional de Publicações — Números 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — São Paulo. 3. Por telex — Utilize o nº (011) 33670 ABSA. Em Portu- 
gal, os pedidos devem ser feitos à Distribuidora Jardim de Publicações Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2685, Camarate — Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Não envie pagamento antecipado. O atendimento será feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deverá ser efetuado ao se retirar 
a encomenda na Agência do Correio. Atenção: A pós seis meses do encerramento 
da coleção, os pedidos serão atendidos, dependendo da disponibilidade de es- 
toque. Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 
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ORGAI 





Encontrar o nome e o endereço de uma 
pessoa da qual se sabe apenas 0 
sobrenome e a cidade em que reside é 
tarefa simples para o computador. 
Mas, para isso, é preciso programá-lo 
com as informações adequadas. 


Uma das grandes vantagens do arqui- 
vamento no computador, em compara- 
ção com métodos mais tradicionais (co- 
mo um fichário, por exemplo), é a faci- 
lidade e rapidez com que se pode encon- 
trar as informações arquivadas. 

O programa da lição anterior da sê- 
rie Aplicações fornecia os meios para se 
implementar um sistema altamente fle- 
xível de arquivamento no computador. 
Neste artigo mostramos como se pode 
pesquisar arquivos, tendo em vista ob- 
jetivos como a correção de registros de- 
satualizados ou incorretos, ou a anula- 
ção de registros desnecessários. 





COMO PESQUISAR UM ARQUIVO 


A opção de pesquisa é a de número 
4 no menu principal. Ela permite que 
você pesquise os registros a partir da in- 
formação contida em um campo. 

Se você pressionar a tecla 4, o com- 
putador mostrará, no alto da tela, os no- 
mes dos campos que você definiu ante- 
riormente para o arquivo; em seguida, 
ele perguntará qual campo você quer 
pesquisar — 1 para o primeiro, 2 para 
o segundo, 3 para o terceiro e assim 
por diante, contando a partir do alto 
da tela. A pergunta seguinte será sobre 
O que você quer pesquisar nesse cam- 
po. Em resposta, você deve digitar a 
palavra ou O número que quer procu- 
rar: JOAO ou CAÇAROLA, por exem- 
plo, ou BÍBLIA, ou seja lá o que for. 
Em seguida pressione < RETURN > ou 
<ENTER>. 

A palavra ou o número que você di- 
gitar deve ser exatamente igual ao que 
está escrito no campo. Se uma palavra 
foi armazenada com letras maiúsculas 
nos registros e você estiver procurando-a 
com letras minúsculas, o computador 
não irá encontrá-la. Se você tiver deixa- 
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do, por engano, um espaço antes da en- 
trada em um registro, ou apertar o es- 
pacejador após a entrada, provavelmen- 
te o computador não irá encontrá-la. Is- 
so ocorre mesmo que a palavra do re- 
gistro e a que você está procurando se- 
jam iguais. 

Assim, evite espaços desnecessários e 
procure entrar informações em letras 
maiúsculas. A pesquisa se tornará mais 
fácil e menos sujeita a erros. 

Caso o computador não consiga 
achar nenhum registro com a palavra 
que você pediu, no campo pesquisado, 
ele lhe dirá isso e trará de volta o menu 
principal. Se, ao contrário, forem en- 
contradas diversas respostas, ele coloca- 
rá na tela o primeiro registro que tiver 
a informação pedida e, a partir daí, lis- 
tará em ordem alfabética todos aqueles 
com informação igual. 

Você deve então selecionar uma das 
opções colocadas nas duas linhas abai- 
xo da tela. A primeira é assim: 


PROSSEGUE RETORNA MENU 


Isso funciona mais ou menos da mes- 
ma maneira que no programa do artigo 
anterior. A tecla P serve para pesquisar 
os registros selecionados em ordem cres- 
cente, ao passo que a tecla M o leva di- 
retamente de volta ao menu principal. 
Mas não acontecerá nada se você pres- 
sionar a tecla P quando estiver no últi- 
mo registro selecionado. A tecla R, na 
primeira modalidade de pesquisa, for- 
nece uma mensagem: “REGISTRO 
NÃO ENCONTRADO”. 

Talvez a aplicação mais útil da opção 
de pesquisa seja descobrir um determi- 
nado registro. Para localizá-lo, basta 
lembrar-se de qualquer informação so- 
bre ele. Por exemplo, suponhamos que 
você esteja utilizando esse arquivo para 
armazenar nomes, endereços e números 
de telefones dos membros de seu clube 
e já possua os seguintes campos: nome, 
sobrenome, rua, cidade, Estado,código 
postal, número do telefone. Neste caso, 
você poderá pesquisar um determinado 
registro até mesmo se lembrar apenas do 
sobrenome da pessoa. 

E se uma parte da informação de que 
você se lembrou não for exclusiva desse 
registro? A solução é simples: por exem- 
plo, se você procura o registro de uma 
pessoa, sabendo apenas que ela mora na 
cidade de São Paulo, ou que o seu pri- 
meiro nome é João, poderá evocar to- 
dos os paulistanos ou todos os indivi- 
duos de nome João e saltá-los até encon- 
trar o nome correto. Mesmo que o nú- 
mero de nomes fosse muito grande, es- 
sa procura seria mais fácil do que se ti- 


p= vesse que percorrer todo o arquivo, re- 


visando um registro de cada vez, 




















COMO MODIFICAR UM REGISTRO 


- A segunda linha de opções da parte 
inferior da tela permite outras opções de 
trabalho com o registro exibido: 


CORRIGE APAGA IMPRIME 


Se você quiser modificar um registro 
mostrado na tela, deve pressionar a te- 
cla €C. O computador perguntará 
“QUAL O NUMERO DO CAMPO" 


que você deseja modificar. Digite o nú- 
mero, contando a partir do alto. 

Em seguida, o computador pedirá pa- 
ra “ENTRAR A MODIFICAÇÃO”, Vo- 
cé deve então digitar o novo campo que 
quer entrar, até mesmo se quiser modi- 
ficar apenas uma letra, Quando as teclas 
<ENTER> ou <RETURN> forem 
pressionadas, o computador efetuara a 
modificação no lugar correto do regis- 
tro. Se você quiser, poderá pressionar 
mais uma vez a tecla € e modificar ou- 
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tro campo no mesmo registro. Se você 
quiser modificar um registro que não es- 
tá na tela, deve pressionar C para retor- 
nar ao menu principal e escolher a opção 
de pesquisa 3, para localizar o registro 
que deseja alterar. Outra saída seria es- 
colher a opção 2, “VER OS REGIS- 
TROS”, achando-o e modificando-o. 


APAGUE OS REGISTROS INCORRETOS 





Você deve primeiro localizar o regis- 
tro que deseja apagar, estudando as al- 
ternativas. Normalmente, são apresenta- 
das, no lado inferior da tela, seis opções 
padrão. Para apagar um registro é neces- 
sário pressionar a tecla A. Então o com- 
putador perguntará: “VOCÊ TEM 
CERTEZA?” Isso evita que você apa- 
gue, por engano, um registro correto. 

Se você tem certeza de que quer apa- 
gá-lo, pressione a tecla S. O computa- 
dor apagará então esse registro e exibi- 
rá o próximo — tanto o registro anota- 
do segundo uma ordem alfabética, se 
você estiver na modalidade de exibição, 
quanto o que possui o mesmo campo 
que você está pesquisando, se estiver na 
modalidade de pesquisa. 

Se você apagou o último registro en- 
contrado na pesquisa, o computador in- 
formará que não existem mais registros 
com tal item no campo que o interessa 
e trará o menu principal de volta. 


IMPRIMA OS REGISTROS 





A última opção na parte inferior da 
tela permite mandar para a impressora 
(caso haja uma) os registros do arqui- 
vo. Se você pressionar a tecla I na ver- 
são do programa para o TRS-Color, o 
computador lhe pedirá para “CHECAR 
A IMPRESSORA”. Nesse ponto, é ne- 
cessário averiguar se a impressora está 
conectada e ligada; se essa condição for 
satisfeita e mesmo assim a impressora 
não funcionar, você deverá verificar o 
programa. 

No Spectrum essa linha de mensagem 
não é necessária, pois ele não reagirá à 
tecla I se não houver nenhuma impres- 
sora conectada. 

Uma vez que você já checou se a im- 
pressora está conectada e ligada, acione 
a tecla € para continuar. Pressionando 
algumas outras letras, a linha “CHE- 
QUE A IMPRESSORA" desaparecerá e 
você poderá novamente utilizar uma das 
seis opções padrão, localizadas no lado 
inferior da tela. Caso € seja pressiona- 
da sem que haja uma impressora conec- 
tada, ou esta não funcione por qualquer 
razão, você deve pressionar as teclas 


< RESET> (no TRS-Color e Apple), 
ou <CTRL> <STOP> (no MSX), e 
verificar o programa. Para continuar a 
utilizar o programa sem perder os dados 
armazenados, digite de modo direto: 
GOTO 30 

Retornando ao menu principal (uma 
observação importantíssima: não tente 
modificar qualquer linha do programa an- 
tes de dar o comando acima, caso con- 
trário perderá todos os dados já armazg- 
nados na memória RAM da máquina). 





“SAIBA UTILIZAR SEUS ARQUIVOS 


Agora você possui um sistema de ar- 
quivamento altamente flexível e comple- 
to, que pode ser utilizado para armaze- 
nar detalhadamente qualquer tipo de in- 
formação. Evidentemente, Você pode 
utilizar o programa para armazenar, em 
uma única fita cassete, um fichário 
enorme ou vários fichários, 

Fitas muito longas, contudo, apre- 
sentam inconvenientes. Uma solução 
mais prática consiste em armazenar di- 
ferentes arquivos em várias fitas, de mo- 
do a torná-los mais facilmente localizá- 
veis. Neste caso, é necessário guardar o 
próprio programa em uma fita separa- 
da (somente os micros da linha Spec- 
trum estão dispensados dessa precau- 
ção). Você poderá, assim, carregar os 
dados antes de selecionar a opção 6. 

À primeira vista, isso pode parecer 
um grande desperdício de número de 
acessos. Essa impressão, contudo, dei- 
xa de ter sentido quando pensamos no 
espaço ocupado pelos arquivos dos an- 
tigos cartões de indexação. 





COMO ENTRAR O PROGRAMA 


A seguir, listamos a segunda seção do 
programa de arquivamento de dados 
que, para sua felicidade, é muito mais 
curta do que a primeira. 

Quando acrescentá-la ao programa 
existente, você notará que poucos núme- 
ros de linhas estão duplicados. Não es- 
quente a cabeça com isso. Os números 
da primeira seção estavam ali simples- 
mente para manter o programa intacto 
e permitir o seu teste. Os novos núme- 
ros substituirão os antigos assim que vo- 
cê digitá-los. 


Atenção se você for utilizar o pro- 
grama abaixo em micros com disque- 
te. Mude o número 11000 do comando 
CLEAR, no começo do programa, pa- 


ra 8000, sob pena de não haver espaço 
suficiente na memória. 


3000. GOSUB 8500 

3010 PRINT 8417,"MODIFICAR QUAL 
CAMPO? (1 AP:;A;") Pº; 

3020 INS=INKEYS:IF INS="" THEN 

3020 

3030 J=VAL (INS) 

3040 IF J<1l OR J>A THEN 3020 

3050 PRINT €448,"” 

3060 PRINT €45+32*J,"":PRINT €4 
17,"DIGITE O CAMPO MODIFICADO " 
“LINE INPUT AS(D,J) 

3070 AS(D,J)=LEFTS(AS(D,J) ,A(J) 

) 

3080 IF 

3090 IF 

3100 IF 

J=1 
3110 IF 

==] 

3120 IF 

EN 3180 
3130 IF 
3140 IF 
3180 
3150 FOR N=1 TO A:XS=AS(D,N) :AS 
(D,N)=AS(D-1,N):AS(D-1,N)=XS:NE 

XT:D=D-1:GOTO 3080 

3160 IF AS(D,1)<=AS(D+1,1) THEN 
3180 

3170 FOR N=1 TO A:XS=AS(D,N) :AS 
(D,N)=AS(D+1,N) :AS(D+1,N)=XS5:NE 

XT:D=D+1:GOTO 3080 

3180 FOR F=1l TO 300:NEXT:RETURN 

4000 G=D 

4010 GOSUB B500 

4020 PRINT 8449,"VOCÊE TEM 

ZA QUE QUER APAGAR?" 

4030 INS=INKEYS:IF INS="" THEN 

4030 

4040 IF INS<>"S" THEN RETURN 

4050 IF G=NR THEN 6=G-1 

4060 CLS 7:PRINT €236,"APAGANDO 
";: SOUND 30,1 

4070 IF D=NR THEN 4090 

4080 FOR N=1 TO A:AS(D,N)=AS (D+ 
1,N):NEXT:D=D+1:GOTO 4070 

4090 FOR N=1 TO A:AS(D,N)="":NE 
XT:NR=NR-1:D=G 
4100 FOR F=1 TO 
5000 FOR N=1 TO 
N,N,NS(N) :NEXT 
5010 PRINT 8417,"QUE CAMPO PROC 
UBAR (1 A";A;") 2"; 

5020 INS$=INKEYS:IF INS="" THEN 
5020 

5030 IF VAL (INS)<1 OR VAL (IN$S)> 

A THEN 5020 

5040 SOUND 30,1:Z=VAL(INS):PRIN 
T 6417," PROCURAR PELO QUE (NO € 

AMPO”;Z;")?" 

5050 LINE INPUT Z$ 

5060 D=1:6G=0:CH=1 

5070 IF D>NER AND G=1 THEN G=0:€ 
H=-1 ELSE IF D>NR THEN 5230 
5080 IF D<1l AND G=1 THEN G=0:CH 
=] ELSE IF D<l THEN 5230 

5090 IF AS(D,Z)<>ZS5 THEN D=D+CH 
:“GoTo 5070 

5100 LD=D:G=1:GOSUB 8500 

5110 PRINT 6451," pROSSEGUE 


D=R THEN J=-1:GOTO 3130 
D=1 THEN J=1:GOTO 3120 
AS (D,1)>2AS(D+1,1) THEN 
AS(D,I)<AS(D-1,1)THEN J 
AS(D+1,1)="" AND J=1 TH 


J=1 THEN 3160 
AS(D,1)>=AS(D-1,1) 


THEN 


CERTE 


400:NEXT:RETURN 
A: PRINT €33+32* 
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GA IMPRIME”; 

5120 INS=INKEYS:IF IN$="" THEN 
5120 

5130 IN=INSTAR(1,R955S, INS) 

5140 ON IN GOTO 5160,5160,5170, 
5180,5190,5200,5210 

s150 GOTO 5120 

5160 cH=1:D=D+1l:GOTO 5070 

5170 CH=-1:D=D-1:GOTO 5070 

5180 RETURN 

5190 GOSUB 3000:GOTO 5090 

5200 GOSUB 4000:GOTO 5090 

5210 GOSUB 10000:GoToO 5070 

5220 GOTO 5110 

5230 CLS 2:PRINT €200,"NENHUM BR 
EGISTRO COM ”";:PRINT 8271-LEN(Z 
BIZ, Cragro "4 

5240 PRINT 8330," NO CAMPO" ;Z; 
5250 FOR G=1 TO 5:SCREEN 0,1:F0O 
R F=1 TO 500:NEXT:SCREEN 0,0:FO 
AR F=1 TO 500:NEXT F,G:RETURN 


| 


4000 FOR N=V TO A: PRINT  INVER 
SE V;AT N*2,9;N; INVERSE U;TAB 
E ad ":NS(N): NEXT N 

4010 PRINT '*'"PROCURAR EM QUE C 
AMPO (1 A ";4;")?7" 


4020 IF INKEYS="" THEN GOTO 40 
20 
4030 LET YS$=INKEYS: IF CODE Y$< 


49 OR CODE Y5>48+A THEN GOTO 4 


030 

4040 SOUND .1l,10: LET Z=VAL Y5S: 
PRINT '" PROCURAR PELO QUE NO € 

AMPO ";Z:"?P": DIM Z8S(V,A(Z)): | 

NPUT LINE Z5(V) 

anda CLS : LET K=V 

4045 IF AS(K,B(Z)+V TO BIZ+V))= 

ZS(V) THEN GOTO 4050 


4046 IF K=R OR AS(K,V)=" " THEN 


CLS : PRINT AT 9,3;"NENHUM RE 
GISTRO COM ";ZS(V),'TAB 10;"NO 
CAMPO ”";Z: PAUSE 150: RETURN 
4047 LET K=K+V: GOTO 4045 
4050 LET D=V:; LET PM=V: LET MO= 
V 
4060 IF D>R THEN LET D=PM 
4070 IF D=U THEN LET D=PM 
4080 IF AS(D,V)=" " THEN LET D 
= PM 
4090 IF AS(D,B(Z)+V TO B(Z+V))< 
>ZS(V) THEN LET D=D+MO: GOTO 4 
060 


4100 GOSUB 9500 
4110 LET PM=D 

4120 IF OP=V THEN 

T D=D+MO: GOTO 4060 
4130 IF 0P=2 THEN LET MO=-V: L 
ET D=D+MO: GOTO 4000 


LET MO=V: LE 


4140 IF O0P=3 THEN RETURN 

4150 IF 0P=4 THEN GOSUB 8000 
4160 IF 0P=5 THEN LET DF=U: LE 
T MD=2: GOSUB 9000: IF DF=V OR 
AS(V,V)=" "” THEN RETURN 


4170 GOTO 4100 

B000 INPUT AT U,U;"CAMPO A SER 
CORRIGIDO(IL A ";(A)J;")?7";J: IF 
J>A THEN GOTO 8000 

B010 PRINT FLASH V;AT V+2*9,12 
“AS(D,B(J)+V TO B(J+V)): INPUT 
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AT U,U;"Digite o campo modifica 
do”, LINE AS(D,B(J)+V TO B(J+V) 
): PRINT AT V+2*J,12;AS(D,B(J)+ 
V TO B(J+V)) 


B020 IF D=R THEN LET J=-V: GOT 


o 8070 

B030 IF D=V THEN LET J=V: GOTO 
8060 

8040 IF AS(D)2AS(D+V) THEN LET 
J= 

8050 IF AS(D)<AS(D-V) THEN LET 
Jm= 

BO60 IF AS(D+V,V)=" " AND J=V T 
HEN GOTO 8500 

8070 IF J=V THEN GOTO 8100 
8080 IF AS(D)>2=AS (D-V) THEN GO 


TO 8500 


8090 LET XS=AS(D): LET AS(D)=AS 


(D=V): LET AS(D-V)=XS: LET D=D- 
V; GOTO 8020 
8100 IF AS(D)S=AS(D+V) THEN GO 


TO 8500 
B110 LET XS=-AS (D): 
(D+V) : LET AS(D+V) =KS: 
V: GOTO 8020 


LET AS(D)=AS 
LET D=D+ 


8500 SOUND .1,10: PRINT AT U,U; 
"Registro numero ";D;" "os MET 
URN 


9000 PRINT AT 19,U; TEM CERTEZA 
DE QUE QUER APAGAR?”": PAUSE U 
9010 IF INKEYS="" THEN GOTO 90 


10 
9020 IF INKEYS<>"5" THEN PRINT 
AT 19,U;” 
": SOUND .1,10: RETU 
RN 
9030 


PRINT AT 19,U;" APAGANDO 


9035 LET DD=D 
9040 IF D=R THEN 
GOTO 9060 

9050 IF AS(D+V,V)<>2" * THEN LE 
T AS(D)=AS(D+V): LET D=D+V: GOT 
o 9040 

9060 LET AS(D)="": FOR F=V TO 1 
DO: NEXT F: PRINT AT 19,U;" 


LET DD=DD-V: 


9070 
HEN 

9072 
9075 
=D-V 
9080 


IF ASAV,Vj=" " T 
RETURN 
LET D=V 
” THEN 


LET D=DD: 
LET D=U: 
IF D=U THEN 
IF AS(D,V)=" LET D 
IF MD=V THEN 
9090 LET K=V 

9100 IF AS(K,B(Z)+V TO B(Z+V))= 
Z£S(V) THEN GOTO 9130 


RETURN 


9110 IF K=A OR AS(K,V)=" * THEN 
LET DE=V: GOTO 4046 

9120 LET K=K+V: GOTO 9100 

9130 LET DD=D: LET PAm=V 

9140 IF AS(DD,V)=" " OR DD=U TH 

EN LET PA=2: LET DD=D: LET MO= 


MO-V 

9150 IF AS(DD,B(Z)+V TO B(Z+V)) 
25 (V) THEN LET D=DD: RETURN 
9160 LET DD=DD+MO: GOTO 9140 


3000 GosUuB8500 

3010 LOCATEO,22:PRINT"Modificar 
qual campo? (1l até ";A;")":: 
3020 INB-INKEYS: IFING-""THEN302 





Ú 

3030 J=VAL (INS) 

3040 IFJ<IORJ>2ATHEN3020 

3060 LOCATEO,22:PRINTSPACES (39) 
: ILOCATEO, 22: PRINT"Entre com o 
campo modificado: ”;:LINEINPUTA 
S(D,J) 

3070 AS(D,J)=LEFTS (AS (D,J) ,A(J) 
) 
3080 
3090 
3100 
3110 
1 
3120 
BO 
3130 
3140 
BO 
3150 FORN=ITOA:SWAPAS(D,N) ,AS(D 
-1,N) :NEXT:D=D-1:6G0T03080 

3160 IFAS(D,1)<=AS(D+1,1)THEN31 
BO 

3170 FORN=1ITOA:SWAPAS(D,N) ,AS(D 
+1,N) :NEXT:D=D+1:G0TO30B0 

3180 FORF=1T0300:NEXT:RETURN 
4000 G=D 

4010 GOSUB8B500 

4020 LOCATE0O,22:PRINT"Você conf 


IFD=ATHENJ=-1:G0TO3130 
IFD=1THENJ=1:GOTO3120 
IFAS(D,1)>AS(D+1,1)THENJ=1 
IFAS (D, 1) <AS (D-1,1) THENJ=- 


IFAS (D+1,1)=""ANDJ=1THEN31 


IFJ=1THEN3160 
IFAS(D, 1)>2=AS (D-1, 1) THEN3L 


a deleção? (S/N)”"; 
INS=INKEYS: IFINS=""THENdO3 


irma 
4030 
Õ 
4040 IFINS<>"5S"THENRETURN 

4050 IFG=NRTHENG=G-1 

4060 CLS:LOCATE12,15: PRINTCHRS( 
7):;"Apagando";CHRS (7); 

4070 IFD=NATHEN4090 

4080 FORN=1ITOA:AS(D,N)=AS(D+1L,N 
)J:NEXT:D=D+1:GOTO4070 

4090 FORN=1TOA:AS(D,N)="":NEXKT: 
NA=NA-1:D=G 

4100 FORF=1T0400:NEXT:RETURN 
5000 FORN=ITOA:LOCATES, 2*N+2: PR 
INTN,NS(N) :NEXT 

5010 LOCATEO,22:PRINT”Procurar 
por qual campo? (l até ";A;")"; 
5020 INS=INKEYS: IFINS=""THEN5SO2 


(É) 

5030 IFVAL(INS)<lLORVAL (INS) >2ATH 
EN5S020 

5040 PRINTCHRS(7);: Z=VAL(INS):L 
OCATEO, 22: PRINT"Procurar o que 
no campo ";Z;"?7"; SPACES (8) 

5050 LINEINPUTZS 

5060 D=1:6G=0:CH=1 

5070 IFD>NRANDG=1THENG=0:CH=-1E 
LSEIFD>NR14EN5230 

5080 IFD<IANDG=1THENG=D:CH=1ELS 





EIFD<SITHEN5S230 

5090 IFAS(D,Z)<>ZS$THEND=D+CH:GO 
TO5070 

5100 LD=D;G=1:GOSUBB500 

5110 LOCATE3,22:PRINT"[Pl]rosseg 


(MJenu [Clo 
[I Jmprime” 


[R]etorna 
[Alpaga 


ue 
rrige 


5120 INS=INKEYS: IFINS=""THEN5S12 
O 

5140 0NINGOTO5160,5160,5170,518 
0,5190,5200,5210 


5150 GOTO5120 

5160 CH=1:D=D+1:6G0T05070 

5170 CH=-1:D=D-1:GOTO5070 

5180 RETURN 

5190 G0SUB3000:G0TO5090 

5200 G05UB4000:G0TO5090 

5210 G05SUB10000:G0TO5070 

5220 GOTO5110 

5230 CLS:LOCATEU,15: PRINT"Não e 
ncontrei ";Z58;" em ";NS(Z) 


5250 FORF=1T0500:;NEXT:RETURN 


GOSUE 6500 
- os 


POKE 34,22: 
VTAB 23: CALL 


3000 


3010 PRI 


"NUMERO DO CAMPO A SER MODIF 
GET CPS 
"0" 


NT 
ICADO =>" ;: 
3020 IF CPS < 
THEN 3010 
3030 CP = VAL (CPS): IF CP - 0 
THEN  POKE 34,0: RETURN 


OR CPS > "B” 


3040 VTAB 23: HTAB 1: CALL - 
958 
3050 PRINT "CAMPO CORRIGIDO => 


"4: INPUT AS(D,CP) 
3060 AS(D,CP) = JLEFTS 
)  A(CP)) 

3070 IF CP < > À THEN 3000 
3080 IF AS(D,1) >2 AS(D + 1,1) 
AND D < > NR THEN V = 1: GOTO 
3200 . 


(AS (D, CP 


3090 IF AS(D,1) < AS(D - 1,1) 

AND D > O THEN V = - 1: GOTO 3 
200 

3100 GOTO 3000 

3200 FOR N=1TOA:XS=ÃASID, 

N):AS(D,N) = AS(D + V,N):AS(D + 
V,N) = XS: NEXT :D = D+ V: GO 

TO 3080 

4000 GOSUB 6500: VTAB 23 

4010 PRINT "CONFIRMA A DELECAO 
7 "sr GET INS 

4020 IF INS < » “8” THEN RET 

URN 

4030 IF D = NR THEN 4060 

4040 FOR X =D TO NR 

4050 FOR TT = 1TOA:AS(X,Y) = 

AS(X + 1,7): NEXT NEXT 

4060 NR = NR - 1:D = NR: IF D = 
O THEN POP RETURN 

4070 RETURN 

5000 DD = 1: PRINT : FOR X = 1 

TO A: PRINT HTAB 10: PRINT X; 
Toe" NS (MX): NEXT 

S010 VTAB 21: PRINT "PROCURAR 
POR QUAL CAMPO? ";: GET CPS 

5020 CO = VAL (CPS): IF CO > A 
OR CO < 1 THEN RETURN 

5025 PRINT CO 

5030 VTAB 22: HTAB 1: PRINT "P 

ROCURAR O QUE EM ":;NS(CO);: INP 

UT PR$S 

5035 IF PAS = "" THEN RETURN 
5040 HTAB 13: PRINT "PROCURAND 

a 

5050 FOR XX = DD TO NR: IF LE 


FTS (AS(XX,CO), LEN (PR$)) = PR 


S THEN FL = 1:D = XX: GOSUB 602 
O: GOTO 5200 

5060 NEXT 

50720 IF FL = O THEN VTAB 21: 

HTAB 1: CALL - 958: PRINT "NAO 
ENCONTREI ";PR$S;” EM ";NS(CO): 
FOR X = 1 TO 5000: NEXT GOTO 
5090 

5080 VTAB 21: HTAB 1: CALL -— 

958: HTAB B: PRINT "FIM DE ARQU 


IVO ENCONTRADO": FOR X = 1 TO 5 


000: NEXT 
5090 FL =- 0:PRS = "": RETURN 
5200 IF XX = NR THEN 5090 


5210 VTAB 15: PRINT "CONTINUO 
PROCURANDO ";PR$: PRINT " EM *; 

N$(C0);"? (B/N) ";: GET INS 
5220 JIF IN$ = "N” THEN 5090 
5230 IF INS = "S” THEN DD = XX 
+ 1: GOTO 5050 

5240 GOTO 5210 
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O TRS-Color (e seus compativeis na- 

á | cionais, como o CP-400) possui cinco 

W ho ps 5 modalidades para elaboração de gráfi- 

a od Sd cos de alta resolução (PMODE), nume- 

á rados de O a 4. Eles diferem na resolu- 

ção, no grau de detalhe e nas cores dos 

desenho exibidos. PMODE é uma ins- 

trução BASIC, específica para esses mi- 

cros, e significa picture modes (modali- 

dades gráficas). Ela estabelece o conjun- 

N to de cores a ser empregado. Na moda- 

lidade de quatro cores — PMODE 1 ou 

3 —, o conjunto O consiste de verde, 

amarelo, azul e vermelho, enquanto o 

conjunto | de cores é formado por bran- 

co, azul-piscina (ciano), magenta e laran- 

ja. Para o conjunto O de cores, digite o 

comando SCREEN 1,0; para o conjun- 
to 1, recorra a SCREEN 1,1. 

A diferença entre PMODE 1 e PMO- 
DE 3 se encontra na resolução da tela 
gráfica que eles utilizam. Resolução grá- 
fica é o número de pixels (picture ele- 
ment ou elementode figura) que podem 
ser traçados na tela e,como o nome diz, 
é a unidade minima de construção de fi- 
guras. Ele corresponde a um bloco re- 
tangular “aceso ''na tela. 

O programa abaixo mostra a capaci- 
dade de trabalho com gráficos de reso- 
lução média do TRS-Color. Do jeito que 
está, ele roda apenas em máquinas com 
gravador cassete. Para executá-lo em 
uma máquina com Disk BASIC, altere 
os endereços nos comandos POKE nas 
linhas 30 e 50, mudando-os de 1800 e 
1801 para 3584 e 3585, respectivamente. 


a 






atra USE Late 


JU so" 


== 


E Po PS RP E O o A A, | 


10 PMODE3, 1: PCLS: SCREENL,O 4 
20 FOR I=1l TO 9 

30 READ A,B:POKE 1800+1*32,A:PO 

KE 1801+1*32,B 

40 NEXT 






— a o 7 Oo 


Você já sabe como construir blocos 
gráficos em preto e branco. Aprenda 
agora a colorir seus desenhos em 
micros da linha TRS-Color, empregando 
técnicas mais sofisticadas. 


SO FOR K=10 TO 22:POKE 1B00+K*3 


2,192: POKE 1801+K*32,0:NEXT 

60 GoTO 60 

70 DATA 192,0,213,149,213,149,2 
13,149,234,170,234,170,213,149, 
213,149,213,149 


O programa desenha uma bandeira 
e um mastro na tela. Os códigos dos blo- 
cos gráficos que constituem o desenho 
são especificados em uma linha DATA; 
o programa as lê e coloca os caracteres 
gráficos correspondentes na memória de 
vídeo, através do comando POKE ou 
PRINTO. Desta vez, para que você 
possa ver os blocos gráficos mais clara- 
mente, os códigos são colocados na pá- 
gina de memória de vídeo, a partir do 
endereço 1800, o que os situa no meio 
da tela. Isto ocorre porque a página grá- 
fica usada (PMODE 3) tem seu endere- 
ço absoluto de início na locação 1536. 
O programa não funcionará em máqui- 
nas com BASIC de disco. 

A linha 10 seleciona o PMODE 2 
(conjunto de cores 0) e limpa a tela. As 
linhas 20 a 40 lêem nove pares de dados 
que definem o desenho da bandeira, e os 
colocam diretamente na página de vídeo 
correspondente, através do comando 
POKE. O restante da bandeira é desenha- 
do pela linha 50, que traça o mastro atra- 
vés de dois POKE (códigos 192 e 0), repe- 
tidos 22 vezes. A linha 60 forma um laço 
sem fim, cuja única função é “congelar” 
a tela gráfica. Pressionando <BREAK>, 
você interrompe o programa. 

A principal diferença entre a técnica 
que tínhamos aprendido antes e a utili- 
zada neste programa está nos dados de 
definição da figura. Os códigos estão em 





“NºDO 
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decimal e foram convertidos a partir de 
um número binário de oito bits. Mas, 
ao invés de bits individuais, que dizem 
ao computador para ligar ou desligar pi- 
xels individuais, os pares de bits estabe- 
lecem agora que cor será atribuída aos 
pares de pixels. No PMODE 1, um par 
de bits diz ao computador para situar 
dois pares de pixels, um abaixo do ou- 
tro na tela. 

A figura | mostra como a bandeira 
é feita de pares de pixels: ela é definida 
através de um conjunto de números bi- 
nários de dois bits, correspondentes a 
cada um dos dois blocos de pixels. No 
conjunto de cores O você deve escrever 
00 para um bloco de cor verde, 01 para 
um bloco amarelo, 10 para um azule 11 
para um vermelho. Quatro desses núme- 
ros de dois bits compõem cada parte dos 
dados de oito bits. 

Caso tenha escolhido o conjunto de 
cores 1, digitando SCREEN 1,1 na linha 
10, você terá uma bandeira desenhada 
em branco, ciano, magenta e laranja. 
Nesse conjunto de cores você escreve 00 
quando quer um bloco branco opaco, 
01 para um azul ciano, 10 para um bloco 
magenta e 11 para um laranja. 


O programa abaixo permite ver o 
efeito que os códigos gráficos em DA- 
TA têm sobre os pixels e as suas cores 
em cada um dos PMODE (rodar apenas 
nos micros com BASIC para cassete), 
10 CLS 


20 INPUT"MODO GRAFICO(0-4) ";MO 


PMODE 


“verde, amarelo, 
azul e vermelho 


preto e verde 


; “CONJUNTO DE CORES | 
SCREEN 1O 
preto e verde 








E COMO UTILIZAR CONJUNTOS 


DE CORES DIVERSAS 

E | COMO DEFINIR CORES EM 
, BLOCOS GRÁFICOS 
o. EXPLORE OS PMODE 


30 MO=INT(MO):IF MO<SO OR MO0>4 T 
HEN 20 

40 INPUT"NUMERO DA TELA(0O-1) *; 
sT 

50 ST=INT(ST):IF ST<0O OR ST>1 T 
HEN 40 

60 INPUT "NUMERO (0-255) ":;NU 

70 NU=INT (NU) : IF NU<O OR NU>255 
THEN 60 

BO IF MO<4 THEN LE=2 ELSE LE=1 
90 IF MO<2 THEN DE=2 ELSE DE=1 


100 IF(MO AND 1)=1 THEN SP=-2 E 
LSE SP=-1 

110 FOR K=7 TO O STEP SP 

120 FOR L=1 TO LE 

L30 FOR J=1 TO DE 

140 IF SP=-1 THEN PP=1358+32*J+ 


(3-K) *LE+L: CO=INT(.5+(NU AND 2” 
K)/2"K) :GOTO 160 

150 PP=1393+32*J+L-K:CO=INT(.5+ 
(NU AND 3*2" (K-1))/2" (K-1)) 

160 POKE PP,113-SP*15+Co* (14-SP 
|J+ST*64 

170 NEXT J,L 

180 POKE PP-32*DE,47+K 

190 POKE PP-32*DE+1+SP, 48+K 

200 IF SP=-2 THEN POKE PP+31,11 


2- (CO>1) 

210 POKE PP+21,112+(CO AND 1) 
220 NEXT K 

230 PRINT 6482," PRESSIONE QUALQ 


UER TECLA PARA CONTINUAR” ; 

240 SCREEN 0,1-ST 

250 AS=INKEYS:IF A$S="" THEN 250 
260 GOTO 10 


O programa lhe pedirá para selecio- 
nar uma modalidade de gráfico (PMO- 
DE) e o número de tela (SCREEN). A 
seguir, digite um número entre O e 255. 
Aparecerão na tela as cores e os tama- 
nhos relativos dos pixels, com os núme- 
ros dos bits em cima e os seus equiva- 
lentes binários embaixo. 








SCRENTO O 


eee pe 


preto e branco — 


branco, ciano, 
magenta e laranja | 


e“ 


verde, amarelo, 
azul e vermelho 





preto e verde 














E COMO ENCONTRAR UM LUGAR 


IARA SG A SR DANÇA A o RE 
PARA O CÓDIGO DE MÁQUINA 
ps PROGRAMA MONITOR 


COMO ENTRAR 
CÓDIGO DE MÁQUINA dust 











O micro responde automaticamente a 
comandos em BASIC. Nesta lição você 
aprenderá a trabalhar com código 

de máquina, usando um programa em 
BASIC e a instrução POKE. 


Embora o código de máquina sejá a 
linguagem de microprocessador, não exis- 
tem meios de colocá-lo diretamente na 
memória de um computador pessoal. É 
preciso entrá-lo através de um outro pro- 
grama — o que na maioria dos micros 
atuais significa utilizar a linguagem BA- 
SIC para esse programa, pois ela é a úni- 
ca disponível na memória ROM da má- 
quina. Além disso, não podemos man- 
dar o computador executar um progra- 
ma em código de máquina utilizando um 
comando nesse código: é preciso utilizar 
também uma instrução em BASIC. 

Existem programas especiais para 
quem deseja programar diretamente em 
linguagem de máquina (ou seja, utilizan- 
do códigos em hexadecimal). Esses pro- 
gramas são chamados de monitores e 
permitem, entre outras coisas, entrar um 
programa em hexadecimal na memória 
da máquina, executá-lo, listá-lo na tela 
ou na impressora, corrigi-lo, etc. 


Os micros da linha TRS-80, comr 
tíveis com as máquinas de Radio Shacn 
americanas, modelos III e IV,têm um 
monitor disponível na memória. Esse 
monitor permite o trabalho direto com 
códigos hexadecimais e é bastante com- 
pleto. Já os micros compatíveis com o 
Modelo I do TRS-80 não dispõem des- 
se recurso, necessitando de um progra- 
ma elaborado em BASIC, especial ou 
disponível comercialmente. 


Os micros das linhas Apple II +, Ie 
e Ile, bem como o Microdigital TK-2000, 
em todas as suas versões, têm um pro- 
grama monitor embutido, para trabalho 
direto com hexadecimais. O modelo 
TK-2000 conta ainda com uma vantagem 


adicional: um míni-Assembler disponível 
na ROM do equipamento, que permite 
a programação com códigos mnemôni- 
cos e que pode ser invocado diretamente 
do BASIC, pelo comando MA. 


SS)4 


Essas máquinas não oferecem moni- 
tores ou montadores embutidos na 
ROM. Precisam, portanto, de progra- 
mas externos, que devem ser carregados 
previamente na memória RAM, para o 
trabalho direto com a linguagem de má- 
quina (códigos hexadecimais). 

O instrumento básico para entrar 
uma rotina de máquina é o comando 
POKE. Ele serve para colocar os códi- 
gos de máquina, byte por byte, na me- 
mória do computador, usando endere- 
ços absolutos (isto é, o número real da 
locação de memória, em vez de um no- 
me simbólico de variável, como o As- 
sembler e o BASIC fazem). 

Nos micros compatíveis com Sinclair 
Spectrum, ZX-81, e TRS-80 Modelo | 
(BASIC Nível II, da versão cassete), vo- 
cê não pode usar um hexadecimal com 
o comando POKE, apenas um número 
decimal, Assim, os hexadecimais de sua 
rotina de código de máquina devem ser 
convertidos para decimais, antes de se- 
rem entrados. Já o TRS-Color, os 
TRS-80 Mod. Ile IV (com o Disk BA- 
SIC), o MSX e o Apple II aceitam he- 
xadecimais no POKE. 





ONDE COLOCAR O 





Antes de entrar um programa em có- 
digo de máquina, você deve decidir on- 
de irá colocá-lo na memória. Obviamen- 
te, não se deve pô-lo em uma área de 
memória utilizada pelo micro, senão o 
seu programa será destruído quando al- 
gum outro na memória ROM entrar em 
ação, ou o computador deixará de fun- 
cionar corretamente, pois terá algum da- 
do alterado pelo seu programa. 

Você também precisa ser cuidadoso 
quando utilizar as áreas de memória 
RAM normalmente reservadas pelo in- 
terpretador BASIC (essas áreas são des- 
critas no manual de operação ou progra- 
mação de seu micro). Como a rotina de 


código de máquina pode ser chamada de 
um programa em BASIC, se um código 
de máquina for gravado nessa área em- 
quanto o programa em BASIC estiver 
sendo rodado, ocorrerão falhas de ope- 
ração, perdas de programa, ou até o 
“congelamento”" da máquina. 

Você pode utilizar áreas de memória 
intermediária, como o buffer da inter- 
face para o gravador cassete ou para a 
impressora, se o programa for curto, é 
desde que você não esteja utilizando es- 
ses periféricos. Se você olhar o manual 
de programação do seu computador, ve- 
rá também que alguns modelos têm na 
memória RAM áreas não usadas que 
podem ser empregadas para programas 
curtos em código de máquina. 

Nos micros compativeis com o Sinclair 
Spectrum, como o Microdigital TK-90X, 
você pode utilizar a área de gráficos defi- 
níveis pelo usuário (UDG) — entre FFS8 
e FFFF, no modelo de 48 K — desde que 
ela não esteja sendo utilizada pelo seu 
programa. Mas, normalmente, programas 
em código de máquina são colocados en- 
tre a área de gráficos UDG e o final da 
area BASIC, através da modificação do 
endereço do sistema, chamado RAMTOP 
(e que identifica o maior endereço dispo- 
nível na memória RAM do computador), 
para um valor menor, 

Desse modo, a área para o BASIC fi- 
ca diminuída, mas, como não|pode ul- 
trapassar o endereço armazenado na lo- 
cação RAMTOP, o código de máquina 
é protegido contra qualquer interferên- 
cia por parte do BASIC. 

A RAMTOP é uma variável de siste- 
ma, e sua posição é fornecida pelo apon- 
tador nas locações de memória 5SCB2 e 
5CB3. Para movimentar o RAMTOP 
para baixo você precisa apenas colocar, 
com o comando POKE, um valor mais 


“baixo nessas duas locações. Mas o Spec- 


trum possui um outro comando BASIC: 
o CLEAR, que faz essencialmente a 
mesma coisa e deve ser seguido pelo en- 
dereço decimal do lugar para o qual vo- 
cê quer que o RAMTOP seja rebaixado. 

O comando CLEAR também limpa o 
arquivo de exibição (ou seja, a tela), da 
mesma forma que um CLS (e todas as va- 
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riáveis). Além disso, ele restaura a posi- 
ção do comando gráfico PLOT para as 
coordenadas 0,0 — que definem o lado 
inferior esquerdo da tela —, restabelece o 
apontador do comando READ para o ini- 
cio da lista de declarações DATA do pro- 
grama, e zera todos os RETURN ativos. 
Em um TK-90X com 16 K, por exemplo, 
O comando mais usual é: 
CLEAR 31999 

Isso modifica o RAMTOP para 31 999 
ou 7CFF em hexa, deixando 600 bytes 
acima dele — isto é, protegendo a área 
que vai desde esse ponto até o final da 
área de UDG (que está em 32 600) para 
a colocação de programas em código 
de máquina. No modelo de 48 K, o co- 
mando deve ser, neste exemplo: 


CLEAR 63999 


O RAMTOP desce, de tal modo que 
a área do BASIC passa a terminar em 
63 999, ou F999 em hexa: você pode, as- 
sim, iniciar O seu programa de código 
de máquina em 64 000 ou FADO em he- 
xa. Na maioria das aplicações isso dei- 
xará espaço suficiente para os seus pro- 
gramas em código de máquina. 
Com programas de código de máquina 
mais longos que o usual, você deve abai- 
“xaro RAMTOP ainda mais. Mas isso po- 
de não ser bom na prática: com o RAM- 
TOP tão baixo, não existe espaço nem mes- 
mo para entrar uma linha de BASIC. 


No ZX-81, pode-se abaixar o RAM- 
TOP, alterando as locações de memória 
16 388 e 16 389 por meio de comandos 
POKE, de modo a criar uma área prote- 
gida, onde os programas 'de código de 
máquina não sejam modificados. O pro- 
blema é que não se pode armazenar em 
fita o programa que estiver nessa área. 

Programas curtos em código de má- 
quina podem ser colocados com POKE 
na memória intermediária (buffer) pa- 
ra a impressora, que ocupa as locações 
de memória de 16 444 a 16 476, Existem 
outras áreas pequenas nas quais você 
pode colocar seus programas em códi- 
go de máquina, mas não é possível 
guardá-los em fita. 

Existem três maneiras de se colocar 
um programa de código de máquina em 
uma área BASIC, protegendo-o contra 
outras gravações: pode-se entrá-lo como 
parte de declarações REM; colocá-lo 
dentro de variáveis alfanuméricas ou 
cordões de caracteres; ou pode-se 
armazená-lo em um conjunto numérico. 

Para entrar um programa em código 
de máquina como parte de uma decla- 
ração REM você deve calcular qual se- 


rá sua extensão (contar os bytes). Então, 
na primeira linha do programa em BA- 
SIC, digite um REM seguido de pontos: 
10 REM 


O número de pontos deve ser pelo 
menos igual ao número de bytes em seu 
programa de código de máquina. 

Em seguida, você deve colocar os có- 
digos do seu programa nas locações de 
memória ocupadas pela declaração 
REM, um byte de cada vez. Isto é feito 
por intermédio da declaração POKE. Se 
sua REM estiver na primeira linha do 
programa em BASIC, a área reservada 
para isso começa na locação de memó- 
ria 16 Sl4. 

Outra maneira de criar um espaço 
protegido é dimensionar um conjunto. 
A linha de programa em BASIC: 


00... 


10 DIM A(100) 


fornecerá 500 locações livres da memó- 
ria na área de variáveis. Para cada ele- 
mento desse conjunto, o ZX-81 deixa 
cinco locações livres. Se você quiser des- 
cobrir onde começar a armazenar o có- 
digo de máquina neste caso, deverá uti- 
lizar a função PEEK, para obter o va- 
lor armazenado na variável de sistema 
VARS, que está localizada em 16 400 e 
16 401: 


PRINT PEEK 16400+PEEK 16401+6 


Isso fornece o endereço inicial da 
área protegida que você criou (as seis lo- 
cações extras de memória contêm deta- 
lhes do conjunto). Você poderá, então, 
usar a instrução POKE para entrar o 
programa em código de máquina, a par- 
tir do endereço reservado. É possível 
também criar espaço em um cordão com 
uma linha BASIC, como: 


JO LET BOM Sans vacas Ap pe a 


com tantos pontos quanto bytes no pro- 
grama de código de máquina. Para achar 
o endereço inicial, você deve examinar o 
que tem em VARS e acrescentar 6. As 
seis locações extras de memória, neste ca- 
so, contêm o nome do cordão. 

O problema com esses dois métodos 
é que a área das variáveis é apagada 
quando se aperta a tecla CLEAR ou se 
roda o programa em BASIC de novo. 





O modo mais fácil de proteger os 
programas de código de máquina nesse 
computador consiste em utilizar o co- 
mando CLEAR do BASIC. O CLEAR 
também zera todas as variáveis numéri- 
cas alfanuméricas. Usualmente, ele as- 
sume esta forma; 


CLEAR 200,30000 


Ele limita o topo da memória RAM 
(normalmente, em H7FFF ou 32 767 em 
decimal) em 30 000, deixando 2 767 
bytes livres para os programas de códi- 
go de máquina. 

Nesses micros o comando CLEAR 
tem outra função separada, e não rela- 
cionada: a atribuição de espaço de me- 
mória para as variáveis alfanuméricas. O 
primeiro número do comando CLEAR 
fornece o espaço de cordões que deve ser 
reservado para o programa em BASIC. 
Quando a máquina é ligada, o compu- 
tador guarda 200 bytes logo abaixo do 
endereço máximo de memória (RAM- 
TOP) paras as variáveis alfanuméricas. 
Assim, quando você deixar o RAMTOP 
mais baixo, deverá reservar, abaixo de- 
le, também uma quantidade similar (200 
bytes), para os cordões. 

Teoricamente, você pode baixar o 
RAMTOP do TRS-Color até quase o 
topo da área reservada para as telas grá- 
ficas, embora a máquina vá precisar de 
um mínimo de espaço para o BASIC. 

O PCLEAR 1 deixa apenas uma das 
páginas de gráficos; assim, você usa O 
CLEAR para limitar a memória em 
$H3680 (em computadores sem disco, 
apenas). O PCLEAR 8 atribui as oito 
páginas de gráficos, permitindo que se 
reserve memória só até $H3680. Se vo- 
cê não utiliza o comando CLEAR, o 
computador atribui quatro páginas de 
gráficos; assim, você só poderá usar O 
CLEAR até $H1E80. 

Esses limites dependem muito do que 
está dentro da máquina no momento. Se 
existir algum tipo de programa em BA- 
SIC, provavelmente você obterá uma 
mensagem de erro “OM” (out of me- 
mory). Assim, para todos os propósitos 
práticos, trabalhar próximo ao limite não 
será bom, pois você deverá entrar um 
programa BASIC em algum lugar para 
chamar o seu programa de código de má- 
quina. Se você quiser iniciar seu progra- 
ma de código de máquina com um nú- 
mero redondo como 30 000 então digite: 


CLEAR 200,29999 


DA 


Para proteger os programas de código 
de máquina neste micro utilize o coman- 
do CLEAR do BASIC. Este limita a me- 
mória RAM máxima, reservando um es- 
paço acima para seu programa em códi- 
go de máquina. O CLEAR também zera 
as variáveis numéricas alfanuméricas. 
Normalmente, ele assume esta forma: 


CLEAR 100,4HE000 


Ele limita o topo da memória RAM em 
57 344, deixando 8 192 bytes livres para os 
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programas de código de máquina. 
Nestes micros o comando CLEAR 


tem uma outra função separada e não 
relacionada: a atribuição de espaço de 
memória para as variáveis alfanuméri- 
cas. O primeiro número do comando 
CLEAR fornece o espaço de cordões 
que deve ser reservado para O progra- 
ma em BASIC. O computador guarda 
automaticamente 100 bytes abaixo do 
endereço máximo de memória (RAM- 
TOP) para as variáveis alfanuméricas 
quando a máquina é ligada. Se você dei- 
xar o RAMTOP artificialmente mais 


baixo, deverá destinar também uma 


quantidade similar — 100 bytes — abai- 
xo dele, para OS strings. 





UM PROGRAMA MONITOR 


O programa seguinte é um monitor 
simples para auxílio à programação em 
linguagem de máquina. Ele permite que 
você digite códigos de máquina na memó- 
ria do computador, guarde programas de 
código de máquina em fita e examine-os 
na memória. Antes de entrar O programa, 
é necessário dar o comando CLEAR apro- 
priado. Feito isso, o programa é entrado 
e rodado; em seguida, o computador pe- 
de que você forneça um endereço inicial, 
que deverá ser o da memória, acima do es- 
tabelecido em CLEAR. Lembre-se de que 
o comando CLEAR especifica o último 
endereço de BASIC, e o seu programa de 
código de máquina deverá começar na lo- 
cação acima dele. 

Agora digite o monitor de código de 
máquina para o seu computador. 


10 CLS 

20 PRINT €193,"1: 
IGO DE MAQUINA ”" 

30 PRINT €257,"2: 
RIA ” 

40 PRINT €321,"3: 
NA FITA * 

S0 AS=INKEYS:IF AS<"1” OR AS>"3 
” THEN GOTO 50 

60 CLS 

70 ON VAL (AS) GOSUB 200,400,600 
B0 GOTO 10 
200 INPUT 

A 

210 LINE INPUT D$ 

220 IF D$="" TEEN GOTO 210 

230 IF LEFTS(DS,1)="4" TTHEN RE 
TURN 
240 

250 

260 

270 

280 


ENTRAR EM COD 
EXAMINAR MEMO 


GRAVAR BYTES 


"ENDERECO INICIAL ";5 


SS=LEFTS (D$S,2) 

POKE SA, VAL("EH"+55) 

PRINT SA, LEFTS (DS, 2) 
DS=MIDS (D$,3) 

SA=SA+l: GOTO 220 

400 INPUT"ENDERECO INICIAL ";SA 
410 PRINT"SAIDA PARA IMPRESSORA 
7 (S/N)” 


420 AS=INKEYS:IF A$="" THEN 420 
430 P=Q:IF AS="S" THEN P=-2 

440 PRINT 4P,SA 

450 FOR M=0 TO / 

460 PRINT 4P,” ";RIGHTS(" "+HEX 
S (PEEK(SA+M)),2); 

470 NEXT: PRINTA+AP 

480 SA=SA+8B 

490 AS=INKEYS:IF AS="" THEN 490 
500 IF AS=CHRS (13) THEN RETURN 
510 GOTO 440 

600 INPUT "ENDERECO INICIAL ";5 
A 


610 INPUT "NUMERO DE BYTES “;N 

620 LINE INPUT "NOME DO ARQUIVO 
":NS 

630 CSAVEM NS, 

640 RETURN 


5 POKE 
10 PRINT INVERSE L;AT 5,6;" 
MONITOR TK 90 X * 

15 PRINT AT 8,1;"1l: ENTRAR EM 

CODIGO DE MAQUINA” 


SA,SA+N,5SA 


23658,8 


20 PRINT AT 10,1;"2: EXAMINAR 
MEMORIA” 

30 PRINT AT 12,1;"3: GRAVAR P 
YTES EM FITA” 

70 LET AS=INKEYS; IF AS<S"1” 


OR A$>"3” THEN GOTO 70 


BO CLS : GOSURB 100+200* (VAL A 
$-1) 
90 RUN 
100 INPUT "ENDERECO INICIAL? " 
:'SA 
110 INPUT LINE DS 
120 IF D$="" THEN GOTO 110 
125 IF DS$(1)="4" THEN RETURN 
127 IF LEN D$S=1 THEN. GOTO 110 
130 LET SS=DS(1 TO 2) 
140 FOR N=1 TO 2 
150 IF SS(N)>"9” THEN LET SS( 
N)=CHRS (CODE SS(N)=7) 
155 IF SS(N)>"?7”" OR SS(N)<"O” 
THEN PRINT FLASH 1;"CARACTER 
E INVALIDO": GOTO 110 
160 NEXT N 


170 POKE SA, (CODE 5S$(1)-48)*16 
+*CODE 55(2)-48B 


180 PRINT SA,DS( TO 2) 

190 LET DS=D$S(3 TO ) 

200 LET SA=SA+1 

210 GOTO 120 

3400 INPUT "ENDERECO INICIAL? " 
:18A 

310 INPUT "IMPRESSORA (S/N)? ” 
* LINE PS 

320 LET ST=2: IF PS="S5” THEN 
LET ST=3 


330 PRINT 4ST;SA; 

340 FOR M=0 TO 7 

350 LET HS=" 44" 

360 LET HS(1)=CHAS (INT (PEEK 
(SA+M) /16) +48) 

370 LET HS(2)=CHAS (48+PEEK (S 
A+M)-16* (CODE H$S(1)-48)) 

a80 FOR N=1 TO 2 

390 IF HS (N)>"9”" THEN LET HS( 
N)=CHR$ (CODE HS (N)+7) 

400 NEXT N 

410 PRINT +ST;TAB 7+3*M;, HS; 


CPR DOS ES 3 0 UA Te RD 416 AA 
E [LD ]]]]=5=5=]]]255202000]0]0]p>>2>55 00777] ]7]]]]]77 oe DT ee OE 


420 NEXT M 

q40 LET SA=5A+8 

445 PRINT 4&ST: POKE 23692,0 
450 LET AS=INKEYS: IF A$="" 
THEN GOTO 450 

460 IF AS=CHRS 13 THEN RETURN 


470 GOTO 330 

500 INPUT "ENDERECD INICIAL? " 
:SA 

510 INPUT "NUMERO DE BYTES? "; 
N 

520 INPUT "NOME DO ARQUIVO? "; 
LINE NS 

530 IF LEN N$<1l OR LEN N$>10 
THEN GOTO 520 

540 SAVE NS$CODE SA,N 

550 RETURN 


Antes de executar este programa, vo- 
cê deve digitar uma linha 1 contendo um 
REM seguido do número apropriado de 
caracteres, de modo a receber seu pro- 
grama em código de máquina (um ca- 
ractere por byte de programa). 


"MONITOR TK85” 
“1 - PROGRAMAR 


10 PRINT AT 4,9; 
15 PRINT AT 8,4; 
EM CODIGO” 
20 PRINT AT 
A MEMORIA” 
50 LET AS=INKEYS 
60 IF AS<"1”" OR AS>2"2” THEN 
Goto 50 
20 CLS 
B0 GOSUB 100+200* (VAL AS-1) 
85 CLS 


10,4;"2 - EXAMINAR 


90 RUN 
100 PRINT AT 21,0;" ENDERECO INT 
CIAL?” 
105 INPUT SA 
110 INPUT D$ 
120 IF D$="" THEN GOTO 110 
125 IF, D$S(1)="5" THEN RETURN 
130 LET 5$=D$ (DOR) 
135 SCROLL 
140 FOR N=1 TO 2 
150 IF SS(N)<"0" OR SSIN)ZF” 


"CARACTER INVALIDO” 
OR SS(N)>"F” 


THEN PRINT 
155 IF SS(N)J<STO” 
THEN GOTO 110 
160 NEXT N 

170 POKE SA, (CODE 5S(1)-28)*16+ 
CODE S$(2)-28 

175 SCROLL 

180 PRINT SA,D$S( TO 2) 

190 LET D$=D5(3 TO ) 

195 IF LEN DS=1l THEN GOTO 110 
200 LET SA=S5A+1 
210 GOTO 120 

300 PRINT AT 21, 
CIAL?” 

310 INPUT SA 

320 SCROLL 

330 PRINT SA; 
340 FOR M=0 TO 7 
350 LET H$=" " 
360 LET HS(1)=CHRS (INT (PEEK ( 
SA+M) /16)+28) 

370 LET HS(2)=CHRS (28+PEEK (SA 


O; "ENDERECO INI 








+M)-16* (CODE HS(1)-28)) 
400 PRINT TAB 7+3*M; HS; 
410 NEXT M 


440 LET SA=SA+B 

450 LET AS=INKEYS 

460 IF A$="" THEN GOTO 450 

470 IF AS=CHRS 118 THEN RETURN 
480 GOTO 320 

10 CLS 


20 LOCATE 8,7:PRINT “1 - Progra 
mar em código” 

30 LOCATE 8,9: PRINT 
ar memória” 

40 LOCATE 8,11:PRINT 
r bytes na fita” 

50 AS=INKEYS:IF AS$="" THEN GOTO 
50 

60 CLS 

70 ON VAL(AS) GOSUB 200,400,600 
BO GOTO 10 À 
200 INPUT "Endereço inicial 
210 LINE INPUT DS 

220 IF D$="" THEN GOTO 210 
230 IF LEFTS(DS,1)="4" THEN RET 
URN 
240 
250 


"2 - Examin 


"3 - Grava 


"-. SA 


SS=LEFTS(DS,2) 

POKE SA,VAL (.H0+55) 

260 PRINT SA, LEFTS(DS,2) 

270 DS=MIDS (DS, 3) 

280 SA=SA+1:GOTO 220 

400 INPUT “Endereço inicial";SA 
410 PRINT "Saída para impressor 
a ? (5S/N)” 

420 AS=INKEYS:IF AS="" THEN 420 
430 IF AS="5" OR AS="s” THEN OP 
EN "LPT:” FOR OUTPUT AS 41 ELSE 
OPEN "CRT:"FOR OUTPUT AS 4t1 
d40 PRINT 41,5SA; 

450 FOR M=0 TO 7 

460 PRINT 41,” ":;RIGHTS(” 
S(PEEK (SA+M)),2); 

470 NEXT:PRINT 41, 

aB0 SA=SA+1 


"+HEX 


490 AS=INKEYS:IF A$="" THEN 490 


500 IF AS=CHR$(13) THEN CLOSE + 


1:RETURN 

510 Goro 440 

600 INPUT "Endereço inicial ";5 
A 

610 INPUT “Número de bytes ";N 
620 LINE INPUT "Nome do arquivo 


“NS 
630 XS="CAS:"+NS 
640 BSAVE XS,SA,SA+N,5SA 
650 RETURN 





“COMO O MONITOR FUNCIONA 


Quando você rodar O programa apro- 
priado à sua máquina, ele exibirá um 
menu onde aparecem as três opções bá- 
sicas de trabalho com o monitor: “En- 
“trar € ódigo de Máquina", “Examinar 
a Memória” ou — exceto no ZX-81l — 
“Armazenar Bytes na Fita”. 

Se você quiser entrar código de má- 
quina, deverá pressionar a tecla 1. De- 
pois de fornecer um endereço inicial pa- 


raa máauia e pressionar <ENTER> 
ou < RETURN >, você deve começar a 
digitar os códigos de máquina na forma 
de valores hexadecimais de dois dígitos 
cada. Cada valor deve ser separado do 
seguinte por um espaço em branco. 

Antes de pressionar < ENTER > ou 
< RETURN > você pode entrar tantos 
pares|quantos'desejar. Mas é melhor di- 
gitar uma linha por vez e checar rigoro- 
samente os digitos antes de pressionar 
< ENTER>. E muito mais fácil editá- 
los enquanto eles ainda estão na tela do 
que quando estiverem na memória. 

Você notará que as versões do progra- 
ma para o Spectrum e para o ZX-B8] tra- 
duzem seus números hexa para decimais, 
antes de colocá-los na memória: Isto de- 
ve ser feito, como explicamos antes, por- 
que o POKE é uma declaração do BA- 
SIC, e o BASIC nestas duas máquinas 
não aceita números hexa. Mesmo assim, 
é melhor você pensar apenas em hexa 
pois isso lhe dará uma melhor percepção 
de como o computador funciona. 

Você deve finalizar os seus progra- 
mas de código de máquina com um si- 
nal sustenido & ou, no ZX-B1, um sk 
nal de dólar. Isso trará o menu de volta 
para a tela. 

Se você selecionar a opção 2 para 
examinar à memória, o programa pedi- 
rá novamente um endereço inicial — 
desta vez é o início da área de memória 
que precisa ser observada. Para exami- 
nar todo o seu programa em código de 
máquina, esse endereço inicial deverá ser 
o mesmo que o endereço inicial que vo- 
cê forneceu anteriormente. 

A seguir, exceto no ZX-81, será pergun- 
tado se você quer imprimir uma cópia de- 
finitiva do programa em código de máqui- 
na na sua impressora. Se você não quiser 
fazer isso, e pressionar N, o programa im- 
primirá o endereço inicial e os conteúdos 
dessa locação e das sete locações de memó- 
ria subsequentes em uma linha na tela. 

Se, ao contrário, você responder à 
questão acima pressionando qualquer 
tecla do teclado — exceto <ENTER> 
ou <RETURN> —, o endereço origi- 
nal será impresso, junto com seus con- 
teúdos e os conteúdos dos sete bytes sub- 
sequentes. Assim, seguindo esse méto- 
do, você poderá imprimir todo o seu 
programa de código de máquina. 

Se você localizar um erro e quiser 
corrigilo, pressione <ENTER> ou 
<RETURN>, e o programa retorna- 
rá ao menu. Pressione | para entrar O 
código de máquina, e o computador pe- 
dirá novamente um endereço inicial. 
Desta vez, forneça o endereço do byte 
que estiver errado. Se o erro atingir to- 
da uma série, forneça apenas o endere- 
ço do primeiro byte da série; em segui- 


da, entre os Molas corretos, 

Outro modo de fazer correções, 
quando existe apenas um erro, consiste 
em acionar a tecla < BREAK > (nos mi- 
cros da linha Sinclair e TRS-Color), ou 
as teclas <CONTROL> <STOP> 
(no MSX), para interromper o progra- 
ma monitor, e usar o POKE de modo 
direto, para corrigir o conteúdo da lo- 
cação apropriada. Lembre-se de que no 
Spectrum e no ZX-81 você deve usar o 
POKE com um número decimal. Assim 
que terminar a correção, pressione, 
< ENTER> ou < RETURN > e exami- 
ne mais uma vez a memória para ter cer- 
teza de que dessa vez você acertou. 


GUARDE SUAS ROTINAS 





Se você quiser conservar o monitor 
de código de máquina, deverá guardá- 
lo em uma fita separado de seus progra- 
mas de código de máquina, da maneira 
usual. A opção “Armazenar Bytes em 
Fita” no menu do programa monitor 
serve apenas para guardar as rotinas de 
código de máquina que foram entradas 
com o monitor. A única exceção é para 
o ZX-81, no qual você deve guardar suas 
rotinas de código de máquina junto com 
o programa monitor. 

Nas outras máquinas, se você pres- 
sionar 3, o programa pedirá mais uma 
vez um endereço inicial. Este deverá ser 
normalmente o endereço inicial da roti- 
na de máquina que você acabou de en- 
trar, embora qualquer parte da memó- 
ria possa ser guardada por meio da uti- 
lização de um endereço diferente. 

As versões deste programa para o 5- 
pectrum, o TR$-Color e o MSX pedi- 
rão então a você os números de bytes 
que a sua rotina em código de máquina 
ocupa. Você pode calcular isso pela con- 
tagem dos pares de dígitos hexas que fo- 
ram entrados anteriormente. Cada par 
é um byte. Em seguida, você deve en- 
trar um nome para a rotina — assim, O 
seu computador será capaz de identificá- 
lo quando você quiser carregá-lo. A ro- 
tina será gravada pressionando-se as te- 
clas <PLAY> e <RECORD> no 
gravador, antes de acionar a tecla 
< ENTER> do computador. Quando 
a gravação se completar, aparecerá o 
menu na tela, novamente, 





COMO CARREGAR CÓDIGO DE MÁQUINA 


Com o Spectrum, o TRS-Color e o 
MSX a rotina de código de máquina é 
carregada de modo normal (por exem- 
plo, no MSX deve-se utilizar o coman- p 
do BLOAD “CAS:ROTINA”, onde 
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ROTINA é o nome dado à rotina quan- 
do esta foi gravada). Contudo, se o mo- 
nitor na memória da máquina estiver ro- 
dando, você deverá antes disso pressio- 
nar <BREAK> ou <CONTROL> 
<STOP>, para interrompê-lo. 
Lembre-se de repetir 





para 


proteger uma né de memória para o 


programa em c aja de máquina, caso 
você tenha desligado a máquina, ou al- 
terado a ão do RAMTOP desde 
que O ou. 


Com o ZX-81, o seu programa em có- 
digo de máquina será automaticamente 
CE es da fita e com o monitor. 





Pá exemplificar o uso do monitor, 
tente o programa listado abaixo. Com 
exceção dos micros da linha MSX, esse 
programa rola a tela para trás — isto é, 
de cima para baixo e não o contrário. 
Para o MSX, a rotina apresentada ser- 
ve para preencher a tela com traços co- 
loridos (é o mesmo programa apresen- 
tado na primeira lição desta série). En- 
tre a rotina adequada à sua máquina, 
utilizando o programa monitor. Termi- 


ne digitando um sinal *. 


BE 05 EO A6 84 A7 89 FE 
00 30 BB EO A6 84 A7 BB 
20 8€C 04 00 2ZC F3 30 89 
02 01 BC 06 00 25 E4 39 
t 


21-9F 58 11 BF 58 06 08 
25 15 ES DS €5 01 AO 00 
ED B8 06 02 C5 DS 11 00 
F9 19 Dl 01 20 00 ED B8 
ES 21 00 F9 19 EB El 01 
EQ 00 EB B8 Cl 10 E5 Cl 
Dl Ei 10 DA 21 00 3F 06 
08 €5 24 ES AF 77 54 5D 
13 01 1F 00 ED BO El Cl 
LO EE 21 9F SA 11 BE SA 
01 AO 02 ED B8 21 00 58 
11 01 58 3A 8D SC 77 01 
LF 00 ED BO €9 4 


=| 


Lc e. 


01 18 03 2a DC 40 09 54 
SD 01 F7 02 2A UC 40 09 
ED B8 2A OC 40 23 36 00 
54 SD 13 01 1F 00 ED BO 
c9 s 


"98 ED 6B 02 03 
E FF ED B3 3D 20 
118 F9 C9 4 






3E 19 06 
FA C9 02 





Uma vez digitado o programa em có- 
digo de máquina e verificados os possí- 
veis erros, chegou o momento de rodá- 
lo. Lembre-se que ele não reagirá ao co- 
mando RUN normal. Para rodar pro- 
gramas em código de máquina, são ne- 
cessárias instruções especiais que variam 
de computador para computador. 


O Spectrum e o ZX-81 utilizam a fun- 
ção USR (abreviatura de USer Routine) 
do BASIC, seguida de um endereço ini- 
cial do programa em código de máqui- 
na, O USR faz retornar o valor decimal 
contido no registro interno BC do mi- 
croprocessador, uma vez que se tenha 
completado a execução da rotina em có- 
digo de máquina. Isto não é muito útil 
para você, no momento, mas significa 
que se esse retorno não ocorrer normal- 
mente o programa em código de máqui- 
na não deve ter rodado corretamente. 

O USR não é um comando, mas sim 
uma função. E a estrutura do BASIC do 
Sinclair exige que uma linha executada 
seja iniciada com um comando, Assim, 
o USR deve ser prefaciado por uma pa- 
lavra de comando. Se você utilizou os 
endereços iniciais sugeridos neste artigo, 
para o Spectrum, faça: 


RANDOMIZE USR 32000 
e no ZX-81 utilize: 
RAND USA 16514 


(observe que a tecla RAND no Spectrum 
fornece RANDOMIZE na tela. No 
ZX-81 a tecla RAMD fornece RAND na 
tela). Em si próprio, o comando não tem 
sentido, mas ele dá resultado quando 
você rodar a rotina em código de má- 
quina, Lembre-se de que a linha acima 
é apenas um exemplo, Troque o núme- 
ro que vem depois de USR pelo endere- 
ço decimal inicial de seu programa, for- 
necido para o monitor quando digitado. 

Na verdade, qualquer comando BASIC 
pode ser utilizado para prefaciar USR. Por 
exemplo, o PRINT USR 32000, embo- 
ra este, na verdade, imprima o valor do 
par de registros BC na tela, e isso sem- 
pre seja desejável, 


RANDOMIZE USR 32000 ou 
RAND USR 16514) é mais utilizado 
porque evita efeitos colaterais indeseja- 
dos. Mas deverá ser evitado se você es- 
tiver utilizando números aleatórios em 
qualquer parte do programa, pois ele irá 
acionar o gerador de números aleatórios 
novamente. Então, utilize no Ppectee 


SG = Ui É ESSES AE O =P ENTRA: 


DE TITIT 


q = fimo t: 





LET L = UBR 32000 
e no ZX-81 empregue: 
LET L = USAR 16514 


Isso coloca o valor dos registros BC 
na variável L, quando o programa em 
código de máquina termina de rodar — 
isso pode não ter nenhuma utilidade pa- 
ra O seu programa, mas no Sinclair os 
comandos LET, L, = e USR estão to- 
dos nas mesmas “teclas, o que simplifica 
o trabalho de digitar. 


O TRS-Color também possui instru- 
ções para executar programas em códi- 
go de máquina. EXEC é um desses 
comandos; deve ser seguido pelo endere- 
ço inicial da rotina em código de máqui- 
na que você quiser rodar. Por exemplo: 


EXEC 24000 


rodará a rotina do código de má- 
quina que se inicia na locação de memó- 
ria em 24000 decimal, Existe também a 
função USR, que aceita parâmetros ou 
variáveis para serem passados entre o 
programa BASIC e a rotina em código 
de máquina. Antes de começar, você 
precisa definir onde deve se iniciar a ro- 
tina em código de máquina. Isso deve 
ser feito por meio da instrução DE- 
FUSR, seguida de um número de 0 a 9, 
Assim, você pode definir até 10 rotinas 
USR diferentes dentro de um programa 
em BASIC. Quando DEFUSR não é se- 
guido de um número o computador es- 
tabelece que seu significado equivale a 
DEFUSR 0. A sintaxe normal em um 
programa BASIC é: 


10 DEFUSRI = 24000 


Isso define a rotina USR número |, 
como se iniciando na locação 24000 de- 
cimal da memória. 

A função que realmente executa o có- 
digo de máquina é USR, Devido a um 
defeito na ROM, para chamar uma ro- 
tina de código de máquina do TRS- 
Color, USR deve ser seguida de 0 e o nú- 
mero da rotina que você já definiu. 

A sintaxe normal é: 


P = USROI(O) ou PRINT USRO1 (0) 


A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
croprocessador. Assim, ela pode ser 
captada e usada pela rotina em código 
de máquina, se for necessário. 

Neste exemplo, quando a rotina em 
código de máquina termina sua execução, 
os conteúdos do acumulador retornam 
ao programa BASIC, como variável P. 

Como em outros casos, variáveis de 


Fipé Ss = 

































string também podem ser transmitidas 
entre o programa em BASIC e progra- 
mas em código de máquina. 


DX 

Para executar programas em código 
de máquina, o MSX utiliza a função do 
BASIC chamada USR (abreviatura do 
USer Routine), seguida de um endereço 
inicial do programa de código de máqui- 
na, A USR retorna o valor decimal con- 
tido em um par de registros internos do 
microprocessador, uma vez que se tenha 
completado a execução da rotina em có- 
digo de máquina, Isto não é muito útil 
para você, no momento, mas, se este re- 
torno não ocorrer normalmente, signifi- 
ca que o programa em código de máqui- 
na não deve ter rodado corretamente. 

A função USR aceita também pará- 
metros ou variáveis para serem passa- 
dos entre o programa BASIC e a rotina 
em código de máquina, 

Como já foi dito anteriormente, 
USR é uma função e não um coman- 
do. Ora, a estrutura do BASIC do MSX 
impõe que ela esteja contida numa li- 
nha iniciada com um comando. Pode- 
mos utilizar então algo do gênero: 


P = USR(Q) ou PRINT USR(Q) 


A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
croprocessador. Assim, ele pode ser cap- 
tado e usado pela rotina em código de 
máquina, em caso de necessidade. 

Tal como nos exemplos já vistos, quan- 


do a rotina em código de máquina termi- 
na sua execução, os conteúdos do acumu- 


lador retornam ao programa BASIC, co- 


mo a variável P. Para a rotina apresenta- 
da neste programa, é necessário preparar 
a tela gráfica antes de chamá-la, pois ela 
não faz isso internamente. Para executá- 
la, faça o seguinte programa e rode-o com 
o comando RUN: 


1 SCREEN 2 
2 PSET(0,0) 
3 A=USR(B) 
4 goto 4 


Como foi reservado o espaço em 
RAM acima de &HE000, usamos o en- 
dereço inicial - 819] ou $HEO001, em he- 


xadecimal, de modo a iniciar o USR. 6) 
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Quando você quiser armazenar uma 
informação qualquer na memória do 
computador, será necessário, identificá- 
la; do contrário, o computador será ca- 
paz de descobrir onde está a informa- 
ção no momento em que você precisar 
dela novamente. Muitas vezes a infor- 
mação que se pretende armazenar con- 
siste em um número cujo valor se mo- 
difica sempre que o computador execu- 
ta uma repetição (laço) em uma seção 
do programa. Abaixo temos um exem- 
plo de uma situação desse tipo: 


asaaSES é ló s 


LO LET X=0 

20 LET X=X+1 

30 PRINT K;” "; 
40 FOR T=0 TO 10 
50 NEXT T 

60 GOTO 20 

A linha 60 cria o laço, fazendo com 
que o programa se repita indefinidamen- 
te. O número representado por X (ori- 
ginalmente zerado pela linha 10) atinge 
a linha 20 e é aumentado em 1. 0 X é 
chamado de variável numérica, pois ar- 
mazena um número. 

Para entender melhor como funciona 
uma variável numérica, Imaginemos que 
a memória do computador é constitui- 
da por uma série de caixas ou comparti- 
mentos. Cada caixa recebe um nome. 
Num computador simples, esses nomes 
poderão ser letras do alfabeto. Para ar- 
mazenar um número na memória, bas- 
tará atribuir esse valor a uma das caixas: 


LET € = 25 


Essa instrução armazena o valor 25 
na variável C. Nem todos os computa- 
dores exigem o emprego do comando 
LET, mas é uma boa idéia incluí-lo até 
que você esteja experiente. 

Uma vez armazenado, esse valor po- 
de ser utilizado por outras declarações 
em outros cálculos, etc. Você pode di- 
gitar, por exemplo: 


PRINT C * q 
UU. 
PRINT C/5 


Essas declarações deverão fornecer as 
respostas I00 e 5 respectivamente, se 
] continuarmos com o valor definido pa- 





Todos aqueles Xs e Ys esquisitos nos 
programas tornam-se simples quando 
se entende realmente sua função. 
Aprenda como trabalhar com variáveis 
em seus próprios programas. 


ra €, acima. Mas se você digitar: 
PRINT C 


verá que o. valor de € permanece inal- 
terado. Para modificar o valor de €, 
aumentando-o para 30, por exemplo, di- 
gite diretamente: 


LET € = 30 
ou, ainda: 
LET Ce C+ 5 


Note que a linha de comando acima 
não faz sentido do ponto de vista mate- 
mático. Entretanto, o comando LET 
não deve ser entendido como uma equa- 
ção, apesar do sinal de igualdade. A de- 
claração acima significa apenas: “tome 
o valor numérico armazenado na variá- 
vel €, some 5 a ele, e coloque de volta 
o resultado na variável €C””*. O que acon- 
tece é que o valor anterior presente em 
C (no caso, 25) é apagado quando ar- 
mazenamos um novo valor na variável. 


OS NOMES DAS VARIÁVEIS 





A combinação de caracteres permiti- 
dos pelo BASIC para se dar nomes às 
variáveis numéricas difere de computa- 
dor para computador. As principais re- 
gras são mostradas no box na página 99. 

Mas uma coisa que nenhum compu- 
tador aceitará é um nome de variável que 
se Inicie por um número. Por exemplo: 


LET 7 = Já 


não tem sentido, Um nome de variável 
pode incluir números (exemplos: VART, 
A 1985, etc.), mas o primeiro caractere 
precisa ser sempre uma letra. Além dis- 
so, não é permitido utilizar como nome 
de variáveis palavras que representem 
comandos, como TO, THEN, OR ou 
AND, etc. Alguns micros não aceitam 
que essas palavras-chaves façam parte 
do nome da variável: a variável BEND, 
não seria aceita pelo interpretador BA- 
SIC, pois inclui a expressão END. 


VARIÁVEIS EM AO 


A maioria dos programas que você 
escrever utilizará diversas variáveis. Eis 





um programa curto que simula a ação 
de uma bomba *'universal"" de combus- 
tivel (gasolina, álcool, etc.) e que fun- 
ciona de maneira muito interessante: 


LO LET LITROS=0 

£0 LET CRUZ=0 

30 CLS:PRINT 

40 PRINT ” ESCOLHA O COMBUSTIVE 

Lo: aLCOOL GASOLINA 
dIESEL * 

50 INPUT AS 

OU IF AS="A” THEN QTY=0.3 

70 IF AS="G”" THEN QTY=0.2 

BO IF AS="D” THEN QTT=0.4 

90 CLS 

100 PRINT 86130," COMBUSTIVEL *; 

AS 





o DD = po qo fe ques pus pus pus qua 


o | 





o 





a "O QUE É UMA VARIÁVEL? 
a COMO SÃO UTILIZADAS AS 

VARIÁVEIS? 
E VARIÁVEIS DE CONTROLE 





PARA LAÇOS FOR...NEXT 


TT 


É “O QUE É CORDÃO (STRING) 
M VARIAVEIS NUMÉRICAS E 
ALFANUMÉRICAS 


E CORDÕES VAZIOS E 
PROGRAMAÇÃO DE JOGOS 





110 PRINT 6199," LITROS” 

120 PRINT 8256," PRECO A PAGAR" 
130 LET K=PEEK (344) 

140 IF K=251 THEN CLS:GOTO 10 
150 IF K=253 THEN LET CRUZ=CRUZ 
+1:LET LITROS=INT((LITROS+QTY)* 
10)/10 

160 PRINT €206,LITROS 

170 PRINT €270,CRUZ; MIL CRUZEI 
ROS” 

200 GOTO 130 


Atenção: o programa listado acima 
rodará apenas nos compatíveis com O 
TRS-Color. Para poder executá-lo tam- 
bém em micros da linha TRS-80, faça 
as seguintes modificações: 

100 PRINT €258,"COMBUSTIVEL 
";AS 
110 PRINT €385,"LITROS" 


120 PRINT €512,"PRECO A PAGAR” 

160 PRINT 6396, LITROS; 

170 PRINT €526,CRUZ;"MIL CRU- 
ZEIROS |; 


10 LET litros=0 
20 LET cruz=0 
40 PRINT ” Escolha o combusti 


vel: 

45 PRINT "A(lcool) G (asolin 
a) D(1esel)" 

50 INPUT AS 

60 IF AS="a THEN LET aqgty=1/ 
3 

70 IF AS="9" THEN LET qgty=l 
5 

BO IF A$g="q0" THEN LET aqty=1/ 
3 


90 CLS 
100 IF INKEYS="n” THEN LET cr 
uz=cruz+l: LET litros=INT ((la 
trostaty)*10)/10 
105 PRINT AT 6,2 
":;AS 
110 PRINT AT 9,7;"LITROS" 
120 PRINT AT 9,1l5;litros; 
130 PRINT AT 12,0;"PRECO A PAG 
AR” 
140 PRINT AT 12,15;cruz;" mil 
cruzeiros” 
150 IF INKEYS="£f” THEN CLS 
GOTO 10 
200 GOTO 100 


5 CLS 
10 LET LITROS=0 


:+ COMBUSTIVEL 








| 
| | 
| | 


20 LET CRUZ=0 

40 PRINT ” ESCOLHA O COMBUSTIV 
45 PRINT "A(LCOOL)  G(ASOLIN 
A)  D(IESEL)" 

50 INPUT AS 

60 IF AS="A” THEN LET QTY=1/3 

70 IF AS="G" THEN LET QTY=1/5 

80 IF AS="D”" THEN LET QTY=1/3 
90 CLS 

IF INKEYS<CD"N” THEN GOTO 10 
LET CRUZ=CRUZ+1 

LET LITROS=LITROS+QTY 

PRINT AT 6,2;"COMBUSTIVEL 


102 
105 
";AS 
110 PRINT AT 
120 PRINT AT 
130 PRINT AT 


9,7; LITROS 
9, 15; LITROS; 
12,0;" PRECO A PAGA 


R 
140 PRINT AT 12,15;CRUZ;" MIL € 
RUZEIROS”" 

150 IF INKEYS="F”" THEN RUN 


200 GOTO 100 


5 REM ***TECLE A BARRA DE ESPAÇ 
OS PARA LIGAR A BOMBA E D PARA 
DESLIGA-LA*** 

10 LET LITROS=0 

20 LET CRUZEIROS=Q 


30 CLS:-LOCATE 10: PRINT"BOMBA DE 


COMBUSTIVEL” 
40 PRINT: PRINT: PRINT"Escolha o 
seu combustível” 


50 LOCATE 10,5: PRINT'1I- alcool” 
60 LOCATE 10,6:PRINT"2- gasolin 
a” 

70 LOCATE 10,7:PRINT"3- diesel” 


O LOCATE 15,12: INPUT"Sua opção 
: a E + 

90 IF C=1 THEN P=1/3.1 

100 IF C=2 THEN P=1/4.7 

110 IF €=3 THEN P=1/3.5 

120 CLS 

130 LOCATE 10,5:PRINT"Combustiív 
ai ":C 

140 LOCATE 10,10:PARINT"Preço a 
pagar =>” 

150 LOCATE 17,12:PRINT"Litross=> 


160 IN$S=INKEYS:IF INS=CHAS (68) 
THEN END 

165 IF INS<S>CHAS (32) THEN 160 
170 CR=CR+1000:LI=LI+P 

180 LOCATE 26,10:PRINT CR 

190 LOCATE 26,12:PRINT LI 

200 GOTO 160 


5 REM **TECLE A BARRA DE ESPA 
COS PARA RODAR A BOMBA E F PARA 
TERMINAR 

10 LET LITROS = 0 

20 LET CRUZEIROS = U 


30 HOME : HTAB 10: PRINT "BOMB 
A DE COMBUSTIVEL” 
| 40 PRINT : PRINT "Escolha o se 


u combustivel:;" 

















50 PRINT HTAB 5: PRINT "l- à&A 
LCOOL” 

60 HTAB 5: PRINT "2- GASOLINA” 
70 HTAB 5: PRINT "3- DIESEL” 
BO VTAB 15: HTAB 10: INPUT "Op 
cao =>" :C 

90 IF € = 1 THEN P = 1 / 3.1 
100 IF C= 2 THEN P=1/4.,7 
110 IF C=3THENP= I/G3.5 
120 HOME 

130 VTAB 5; HTAB 10: PRINT “Co 
mbustivel ":C ) 

140 VTAB 10: HTAB 10: PRINT "P 
reco à pagar =>” 

150 PRINT HTAB 1/7: PRINT “La 
tros =>" 

160 GET INS: IF INS = CHRS (7 
0) THEN END 

165 LF INS & 2 CHAS (32) THE 
N 160 

170 CR = CR + 1000:LI = LI + P 
180 VTAB 10: HTAB 26: PRINT CR 
190 VTAB 12: HTAB 26: PRINT JI 
NT (LI * 100 + .5) / 100 

200 GOTO 160 


Vale a pena experimentar esse pro- 
grama de muitas maneiras, até entender 
como ele funciona, pois há nele um con- 
junto razoável de variáveis. 

A função de algumas delas é bastan- 
te evidente: a variável A, por exemplo, 
seleciona o tipo de combustivel, através 
de um número (1, 2 ou 3) e determina, 
nas linhas 60 a 80, qual é a fração de li- 
tro do combustível escolhido que vale 
mil cruzados. 

A tecla N aciona a bomba que mede 
o fluxo de combustivel. O programa 
começa então a incrementar o número 














de litros de combustivel (variável 
CRUZ, inicialmente zerada na linha 
20, bem como a variável LITROS). 
Enquanto a tecla N estiver sendo pres- 
sionada, o programa continuará avan- 


cando; ao atingir a linha 200, ele re- 


tornará à linha 130 (100 no Spectrum), 
e manterá o medidor funcionando. Pa- 
ra terminar de abastecer, pressione a 
letra F. 

A presença na tela de frações deci- 
mais com muitos dígitos revela a impre- 
cisão própria do computador, quando 
é feita a conversão de números binários 
internos, para decimais comuns. 





VARIÁVEIS DE CONTROLE 


Assim como são utilizadas em decla- 
rações LET, as variáveis também podem 
aparecer em laços FOR...NEXT, como 
você já deve ter percebido. Neste caso, 
a variável que é alterada a cada repeti- 
ção do laço é chamada de varidvel de 
controle. 

Em alguns computadores, os carac- 
teres empregados para dar nome às va- 
riáveisdecontrolenão podem ser aplica- 
dos a variáveis numéricas (veja quadro). 
Nos micros da linha Sinclair, por exem- 
plo, você pode digitar: 


LET SCORE = O 
LET RECORDE = O 


para variáveis numéricas, mas não po- 
de utilizar nomes como estes em instru- 
ções FOR...NEXT, tais como em: 











dBBodos o 60 mrooramAção Rasta) [NE DS E RR 


FOR TEMPO = 1 TO 99999 


Ao invés disso, você é obrigado a em- 
pregar a variável de controle com uma 
única letra, como por exemplo T. Os ou- 
tros computadores (linhas TRS, Apple 
e MSX) não têm essa exigência. 


VARIÁVEIS ALFANUMÉRICAS 





E se, além de números, quisermos ar- 
mazenar na memória do computador in- 
formações como nomes, endereços, etc.? 

As variáveis capazes de armazenar um 
conjunto de caracteres, incluindo letras 
e números, são chamadas de variáveis al- 
fanuméricas, em BASIC. Outra denomi- 
nação usada é a de cordão (ou string, em 
inglês). Para facilitar a compreensão des- 
se novo elemento, podemos partir de 
uma comparação: um cordão funciona 
como uma espécie de sacola de compras. 
Você pode enchê-la com um grande nú- 
mero de artigos e manejá-la como uma 
unidade — sem ter que ocupar-se com 
cada artigo separadamente. Da mesma 
forma, um único nome de variável alfa- 
numérica serve para caracterizar várias 
memórias, simultaneamente. 

Os cordões podem conter quase tu- 
do: letras, números, sinais de pontua- 
ção, espaço em branco, e até mesmo ca- 
racteres gráficos. Eles devem estar sem- 
pre delimitados entre aspas 


“NOMES E ENDEREÇOS DE 
CLIENTES”. 


“POR FAVOR ENTRE AGORA SUA 
RESPOSTA” 


“24 de Janeiro” 
“*01-7346710" 
“NE 135 S 181” 


O exemplo seguinte também é um 
cordão, embora apenas alguns compu- 
tadores, como o Spectrum, o TK-2000 
eo MSX, permitam que se possa digitá- 
los desta forma diretamente no teclado: 

A linguagem BASIC tem recursos pa- 
ra manipular cordões alfanuméricos de 
diversas maneiras. Por exemplo, existem 
funções e operações para juntar dois ou 
mais cordões uns nos outros (operação 
de concatenação), ou para dividi-los em 
dois ou mais subcordões. 

Entretanto, o computador não “'en- 
tende” o que está dentro de um cordão 
e reproduz o conteúdo deste sempre de 
forma exatamente igual, mesmo que ele 
esteja escrito em sânscrito ou alemão. 

Não é possível, também, efetuar opera- 





Tipo de 
variável 


Variável 
numérica 


Variável de con- 
trole p/ 
FOR...NEXT 


Variável 
alfanumérica 








Comprimento: 


“sem limite, todas | 


as letras são re- | 
conhecidas. 


Comprimento: 
máximo de 255 


caracteres, mas | 
| só as duas pr. 


| meiras letras são 


No ZX-81, só le- 


“tras maiúsculas. 


No Spectrum | 


| maiúsculas é mi- 


núsculas, mas Só] 
maiúsculas são| 
reconhecidas. 


Caracteres espe-| 
| ciais no nome! 
| não permitidos. 


| Espaços no no-. 
| me: 
mas não contam 


permitidos 


Uma letra ape- | 


reconhecidas. 


No TRS-Color, só 
letras malúscu- 
las. No TRS-BO 
hã conversão au- 


tomática para 


maiúsculas. 


Caracteres espe- 
ciais no nome 
não permitidos. 


Espaços no no- 
me: não permiti- 


dos. 


Variável numéri- 


| ca inteira ou de 


| precisão simples. 


| Uma letra ape- 
| “ga seguida de | 


o 


Como nas va- 
riáveis numéri- 


cas, seguida de 


| $, ou declarada 


pela inicial em| 


DEFSTR. 


Como 


Variáveis: o que você pode + e não pode usar 


Comprimento: 


"máximo de 255 


caracteres, mas 
só as duas pri- 


meiras letras são | 


reconhecidas. 


Conversão au- 
tomática para 
maiúsculas. 


Caracteres espe- 
ciais no nome 
"não permitidos. 


Espaços no no-| 


me: não permiti- 
dos. 


Variável numéri- 
ca sem restri- 
ções. 


nas va- 
riáveis numéri- 
cas, seguida de 


8, ou declarada 


pela inicial em 
DEFSTR. 








Comprimento: | 
máximo de 255 
caracteres, mas 
só as duas pri- 
meiras letras são 
reconhecidas. 


' Só letras maiús- 
culas; não há 
| conversão auto- 


mática. 


Caracteres espe- 
ciais no nome 
não permitidos. 


Espaços no no- 
me: não permiti- 


| dos. 


Variável numéri- 
ca sem restri- 
ções. 


Como nas variá- 


veis numéricas, 


seguida de $, 


ções matemáticas com um cordão, como 
somas, multiplicações, divisões e outras, 

Para provar isso, rode o programa 
abaixo: 


dá lóniananSEs 





LO PRINT "2tZm "; 
20 FOR N=1 TO 40 
25 NEXT N 


30 PRINT 1+2*2 


O conteúdo do cordão (entre aspas) 
é impresso como você o entrou. Na ver- 
dade, somente a linha 30 é calculada, e 
seu resultado, impresso (a linha 20 simu- 
la o tempo que o computador está “gas- 
tando” para pensar, antes de fornecer 
sua resposta). No MSX, no Apple e no 
TRS-80, modifique 40 para 2000, para 
um retardo razoável de tempo. 

Mas se quiser utilizar o mesmo cor- 
dão mais de uma vez, pode economizar 
tempo de digitação (e espaço em memó- 
ria) criando um rótulo para ele. Esse ró- 
tulo é chamado também de variável al- 
fanumérica. Sua extensão pode variar de 
um computador para outro (veja qua- 
dro) mas a variável deve ser sempre se- 
guida por um sinal de cifrão ($). 

Eis aqui, por exemplo, um sistema au- 
tomático de pedidos em uma lanchonete: 


FILE TO 


10 LET AS="POR FAVOR,DIGITE QU 
ANTOS” 


£0 LET B$=" VOCE QUER” 

30 PRINT AS;" HAMBURGERES"; BS 

35 INPUT H 

40 PRINT AS;"SACOS DE FRITAS"; 

BS 

45 INPUT S 

50 PRINT AS;" MILK SHAKES" ;B$S 

55 INPUT M 

60 PRINT "OBRIGADO. IRA CUSTAR 
"= (H*  15000+5*5000+M*13000); 
" POR FAVOR." 


A possibilidade de reduzir o tamanho 
dos programas é a razão pela qual sis- 
temas de processamento de dados e de 
textos — que incluem informações e 
mensagens muito utilizadas, tais como 
“número da conta do cliente” e “pre- 
ço por milhar”" e “18% de ICM” — uti- 
lizam variáveis alfanuméricas. 

Você também poderá empregá-las na 
programação de jogos. Suponhamos que, 
em um jogo, seja necessário a todo mo- 
mento colocar na tela uma linha enorme 
de símbolos gráficos — o muro de uma 
prisão para um jogo de aventuras, por 
exemplo. Tudo o que você precisa ur 
é digitá-lo uma única vez, “rotulá-lo' 











utilizá-lo sempre que quiser. | 
" Movimente esse cordão por toda a te- 
la, como mostramos no programa: 


>» CLS 
10 LET B$=" 





20 LET AS=BS+” UMA FELIZ PASCO 
A PARA VOCES"+BS 

30 FOR N=1 TO 65 

40 PRINT €160,MIDS(AS,N,32) 

30 PRINT €320,MIDS(AS,66-N,32) 
60 SOUND N*3,1:NEXT N 

80 GOTO 30 


Para rodar o programa acima nos mi- 
cros da linha TRS-80, substitua as linhas 
40, 50 e 60; assim: 

40 PRINT €320,MIDS(AS,N,32) 


50 PRINT €640,MIDS (AS,66-N,32) 
60 NEXT N 


LO LET B$=* 


20 LET AS=BS+” UMA FELIZ 
PASCOA P ARA VOCES  "+B5 

30 FOR N=1 TO 65 

40 PRINT INK 2;AT 8,0;AS(N 
TO N+31) 

20 PRINT INK 2;AT 12,0;AS(66 
-N TO 9/-N) 

60 SOUND .02,N/2 

70 NEXT N 

80 GOTO 30 


LO LET B$=" 

20 LET AS=BS+" 
SCOA PARA VOCES 
30 FOR N=1 TO 65 
40 PRINT AT B,O;AS(N TO N+31) 
90 PRINT AT 12,0;AS(66-N TO 97 
-N) 

7O NEXT N 

80 GOTO 30 


a 


10 CLS:CLEAR 1000 
20 BS=SPACES (40) 
30 AS=BS$+" 


UMA FELIZ PA 
"+BS 


UMA FELIZ PÁASCO 


à PARA VOCÊS "+B5 

40 FOR N=1 TO 80 

50 LOCATE 0,7:PRINT MIDS(AS,N,3 
9) 

60 LOCATE 0,14:PRINT MIDS(AS,81 
-=N, 39) 

65 FOR X=1 TO 50 
70 NEXT 


[1 


10 HOME 
eu Bo =. 


NEXT 


": REM 40 ES 

PACOS 

30 AS = BS + " 

PASCOA PARA VOCES ” 

35  INVERSE 

40 FOR N= 
SO VTAB 7: 

0) 

60 VTAB ld: 
- N,40) 

65 FOR X = 
70  NEKT 

80 GOTO 40 


UMA FELIZ 
+ BS 


1 TO 80 


PRINT MIDS (AS,N,4 


PRINT MIDS (AS,81 


1 TO 100: NEXT 


Aqui você tem um cordão enorme, co- 
mo mostramos na linha 20 — todos os 
espaços na linha 10, mais a mensagem, 
colocados juntos. Mais adiante, veremos 
como isso é feito, e como o cordão é 
“cortado” novamente para caber na te- 
la. Mas, se nesse meio tempo você qui- 
ser modificar a mensagem, certifique-se 
de que sua nova declaração, incluindo os 
espaços, tem a mesma extensão da origi- 
nal, De outro modo você terá que desco- 
brir O que significam os números nas li- 
nhas 40 a 55 e modificá-los. 

As variáveis alfanuméricas são tam- 
bém muito empregadas quando o pro- 
grama precisa entrar uma informação 
que é sempre modificada. Por exemplo: 


CTT 


LO PRINT "QUAL E O SEU NOME " 
20 INPUT N$ 
30 PRINT "ALO, ";N$ 

Neste programa a linha 10 imprime 
o seguinte cordão na tecla: QUAL E O 
SEU NOME, seguido por um ponto de 
interrogação. O computador espera que 
você entre um nome (um outro cordão) 
e o chama de N$. Na linha 30, ele im- 
prime o cordão “ALO'', e chama de 
volta o cordão N$ armazenado na linha 
acima. Assim será exibido na tela: 


ALO, TOM ( ou PAULO ou PEDRO ) 


ou qualquer outro. Observe que, aqui, 
os cordões QUAL E O SEU NOME e 
ALO não são armazenados dentro de 
variáveis, tais como AS$ ou QUES ou 
ALOS, porque eles aparecem apenas 
uma vez no programa, e o computador 
não precisa se lembrar do que seja ALO 






— quando ele atinge a linha 20 simples- 
mente lê esse cordão e o imprime. 

Ao mesmo tempo, é necessário dar 
um rótulo para o nome que vai ser en- 
trado. Assim, ele poderá ser diferente ca- 
da vez que o programa for rodado. Ele 
é armazenado em uma variável, na linha 
20 do programa, e usado na linha 30. 

Existem computadores que admitem 
uma forma mais curta e mais clara de 
programação da declaração INPUT, 
através da combinação do PRINT 
“mensagem'* da linha 10, com o IN- 
PUT da linha 20: 


CIA TT 


"QUAL E SEU NOME?" NS 
" ;N$ 


10 INPUT 
20 PRINT"OLA, 





“CORDÕES VAZIOS 


Outro modo de trabalhar com variá- 
veis alfanuméricas já foi mostrado an- 
teriormente na lição “'Apontar...Fogo!” 
(págs. 28 e 33 ). Embora varie de com- 
putador para computador a forma de 
escrever uma variável, nesse caso, é esta: 


20 IE AS = "” THEN GOTO 10 


As duas aspas sem nada entre elas são 
conhecidas como um cordão nulo ou va- 
zio. A linha de programa significa: “'se 
a entrada for igual a nada” — isto é, se 
nenhuma tecla estiver sendo pressiona- 
da — “*'volte para a linha 10 e espere até 
que uma tecla seja pressionada . Isto 
evita que o computador salte para outra 
parte do programa tão rapidamente que 
o jogador não tenha tempo de pressio- 
nar uma tecla de comando qualquer, ou 
de ver um resultado ou gráfico na tela. 

Duas aspas com um espaço em bran- 
co entre elas, no entanto, são uma coi- 
sa muito diferente. Se você modificar a 
linha: 


20 IF AS =" " THEN GOTO 10 


o programa retrocederaá à linha 10 ape- 
nas se o caractere entrado pelo jogador 
for um espaço — isto é, se ele estiver 
pressionando a tecla de espaço. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





PROGRAMAÇÃO DE JOGOS 
Participe da “guerra nas estrelas'”... no computador. Desenhe 
na tela os elementos do jogo e construa a sua blindagem. 


LINGUAGEM DE MÁQUINA 
Conheça o coração de um micro. O que é e o que faz uma UCP. 
Como o micro acompanha o desenvolvimento de um programa. 


PROGRAMAÇÃO BASIC 
Produza imagens sensacionais na tela do computador, usando 
apenas a imaginação e alguns truques. 





